(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     35483,       1102]
NotebookOptionsPosition[     34693,       1071]
NotebookOutlinePosition[     35029,       1086]
CellTagsIndexPosition[     34986,       1083]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"total", "[", 
    RowBox[{"valat_", ",", "x_", ",", "y_", ",", "z_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"valat", "[", "1", "]"}], "x", " ", "y", " ", "z"}], "+", 
    RowBox[{
     RowBox[{"valat", "[", "2", "]"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], "x", " ", "y"}], "+", 
    RowBox[{
     RowBox[{"valat", "[", "3", "]"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "y"}], ")"}], "z", " ", "x"}], "+", 
    RowBox[{
     RowBox[{"valat", "[", "4", "]"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "y"}], ")"}], "x"}], "+", 
    RowBox[{
     RowBox[{"valat", "[", "5", "]"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], "y", " ", "z"}], "+", 
    RowBox[{
     RowBox[{"valat", "[", "6", "]"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], "y"}], "+", 
    RowBox[{
     RowBox[{"valat", "[", "7", "]"}], "z", 
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "y"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"valat", "[", "8", "]"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"1", "-", "y"}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.450720136083306*^9, 3.450720315156276*^9}, 
   3.450759725970838*^9, {3.450762770922352*^9, 3.45076279631917*^9}, {
   3.451736199974501*^9, 3.451736207707195*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"strain2", ":=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"total", "[", 
        RowBox[{"xval", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], 
      "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"total", "[", 
        RowBox[{"yval", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], 
      "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"total", "[", 
        RowBox[{"zval", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
      "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"only", " ", 
       RowBox[{"Sqrt", "[", "2", "]"}], " ", 
       RowBox[{"not", " ", "/", "2"}], " ", "because", " ", "trace", 
       RowBox[{"(", 
        RowBox[{"e", " ", "e"}], ")"}], " ", "contains", " ", "the", " ", 
       "offdiagonals", " ", "twice", "\[IndentingNewLine]", "as", " ", "it", 
       " ", "is", " ", "used", " ", 
       RowBox[{"below", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"total", "[", 
           RowBox[{"zval", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], 
         "]"}], "+", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"total", "[", 
           RowBox[{"yval", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
         "]"}]}], ")"}], "/", 
      RowBox[{"Sqrt", "[", "2", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"total", "[", 
           RowBox[{"zval", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], 
         "]"}], "+", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"total", "[", 
           RowBox[{"xval", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "z"}], 
         "]"}]}], ")"}], "/", 
      RowBox[{"Sqrt", "[", "2", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"total", "[", 
           RowBox[{"xval", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "y"}], 
         "]"}], "+", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"total", "[", 
           RowBox[{"yval", ",", "x", ",", "y", ",", "z"}], "]"}], ",", "x"}], 
         "]"}]}], ")"}], "/", 
      RowBox[{"Sqrt", "[", "2", "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tojacobian", "[", "terms_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{
     "{", "\[IndentingNewLine]", "lterms", "\[IndentingNewLine]", "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"lterms", "=", 
       RowBox[{"Simplify", " ", "[", 
        RowBox[{"terms", "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"xval", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"val", "[", 
               RowBox[{"3", "#"}], "]"}], "&"}], ")"}]}], ",", 
           RowBox[{"yval", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"val", "[", 
               RowBox[{
                RowBox[{"3", "#"}], "+", "1"}], "]"}], "&"}], ")"}]}], ",", 
           RowBox[{"zval", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"val", "[", 
               RowBox[{
                RowBox[{"3", "#"}], "+", "2"}], "]"}], "&"}], ")"}]}]}], 
          "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"lterms", ",", 
          RowBox[{"val", "[", "i", "]"}], ",", 
          RowBox[{"val", "[", "j", "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3", ",", "26"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "3", ",", "26"}], "}"}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.450720336830437*^9, 3.450720342038728*^9}, {
   3.450759671020513*^9, 3.450759672028106*^9}, {3.450759727887722*^9, 
   3.450759770290538*^9}, {3.450759836132473*^9, 3.450759842818579*^9}, {
   3.450762825809232*^9, 3.450762916095866*^9}, {3.450763006534961*^9, 
   3.450763116960203*^9}, {3.450763655255849*^9, 3.450763657107887*^9}, {
   3.450763955747615*^9, 3.45076397885614*^9}, {3.450764058116773*^9, 
   3.450764063931464*^9}, {3.450764110712867*^9, 3.450764131666559*^9}, {
   3.450764189238691*^9, 3.450764270614602*^9}, {3.450764303803628*^9, 
   3.450764410418118*^9}, 3.450764459241115*^9, 3.4507686617631*^9, {
   3.450768757488456*^9, 3.450768776644928*^9}, {3.45076881089715*^9, 
   3.450768857527099*^9}, {3.450769051009585*^9, 3.45076906130178*^9}, {
   3.45076928365279*^9, 3.450769284249018*^9}, {3.451137293254351*^9, 
   3.451137369567497*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"integration", " ", "via", " ", 
    RowBox[{"simpson", "'"}], "s", " ", "rule", " ", 
    RowBox[{"(", 
     RowBox[{"EXACT", " ", "here"}], ")"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"intgr", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "/", "6"}], 
         RowBox[{"intgr2", "[", "t", "]"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{"x", "\[Rule]", "1"}], "}"}]}], ")"}], "+", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"4", "/", "6"}], 
         RowBox[{"intgr2", "[", "t", "]"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{"x", "\[Rule]", 
          RowBox[{"1", "/", "2"}]}], "}"}]}], ")"}], "+", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "/", "6"}], 
         RowBox[{"intgr2", "[", "t", "]"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{"x", "\[Rule]", "0"}], "}"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"intgr2", "[", "t_", "]"}], ":=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "/", "6"}], 
         RowBox[{"intgr3", "[", "t", "]"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{"y", "\[Rule]", "1"}], "}"}]}], ")"}], "+", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"4", "/", "6"}], 
         RowBox[{"intgr3", "[", "t", "]"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{"y", "\[Rule]", 
          RowBox[{"1", "/", "2"}]}], "}"}]}], ")"}], "+", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "/", "6"}], 
         RowBox[{"intgr3", "[", "t", "]"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{"y", "\[Rule]", "0"}], "}"}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"intgr3", "[", "t_", "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "/", "6"}], "t"}], "/.", 
       RowBox[{"{", 
        RowBox[{"z", "\[Rule]", "1"}], "}"}]}], ")"}], "+", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"4", "/", "6"}], "t"}], "/.", 
       RowBox[{"{", 
        RowBox[{"z", "\[Rule]", 
         RowBox[{"1", "/", "2"}]}], "}"}]}], ")"}], "+", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "/", "6"}], "t"}], "/.", 
       RowBox[{"{", 
        RowBox[{"z", "\[Rule]", "0"}], "}"}]}], ")"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.450763200863207*^9, 3.450763377608397*^9}, {
  3.450769370484501*^9, 3.450769377901716*^9}, {3.451137304600253*^9, 
  3.451137309416514*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"2", "mu", " ", "matrix"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"MUMA", "=", 
     RowBox[{"tojacobian", "[", 
      RowBox[{"FullSimplify", "[", 
       RowBox[{
        RowBox[{"6", "^", "3"}], 
        RowBox[{"intgr", "[", 
         RowBox[{"strain2", ".", "strain2"}], "]"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"MUMA", "//", "MatrixForm"}]}]}]], "Input",
 CellChangeTimes->{{3.450763941079016*^9, 3.450763952654089*^9}, 
   3.450764036640439*^9, {3.450764275600664*^9, 3.450764280306209*^9}, {
   3.450768869504186*^9, 3.450768871644927*^9}, {3.450769292790397*^9, 
   3.450769298686227*^9}, {3.450769484958449*^9, 3.450769491236749*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"96", "18", "18", "12", "9", "18", "12", "18", "9", 
      RowBox[{"-", "12"}], "9", "9", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}]},
     {"18", "96", "18", "9", "12", "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}], "18", "12", "9", "9", 
      RowBox[{"-", "12"}], "9", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}]},
     {"18", "18", "96", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "9", "18", "12", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}], "18", "9", "12", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], "9", "9", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}]},
     {"12", "9", 
      RowBox[{"-", "18"}], "96", "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], "9", 
      RowBox[{"-", "9"}], "12", "18", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], "18", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}], "9", 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}], "9"},
     {"9", "12", 
      RowBox[{"-", "18"}], "18", "96", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "18", "9", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "9"}], "18", "12", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}], "9", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}], "9"},
     {"18", "18", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], "96", "9", "18", 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], "12", "18", "9", 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], "12", "9", "9", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "12"}]},
     {"12", 
      RowBox[{"-", "18"}], "9", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "9"}], "9", "96", 
      RowBox[{"-", "18"}], "18", "12", 
      RowBox[{"-", "9"}], "18", 
      RowBox[{"-", "30"}], "18", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}], "9", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}], "9", 
      RowBox[{"-", "18"}]},
     {"18", 
      RowBox[{"-", "24"}], "18", "9", 
      RowBox[{"-", "30"}], "18", 
      RowBox[{"-", "18"}], "96", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], "12", 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "30"}], "9", "9", 
      RowBox[{"-", "24"}], "9", 
      RowBox[{"-", "18"}], "12", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "9"}]},
     {"9", 
      RowBox[{"-", "18"}], "12", 
      RowBox[{"-", "9"}], "18", 
      RowBox[{"-", "30"}], "18", 
      RowBox[{"-", "18"}], "96", 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "24"}], "9", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "9"}], "9", 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "9"}], "12", 
      RowBox[{"-", "18"}], "9", 
      RowBox[{"-", "30"}]},
     {
      RowBox[{"-", "12"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}], "12", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], "12", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], "96", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "9", "9", 
      RowBox[{"-", "30"}], "18", "9", 
      RowBox[{"-", "30"}], "9", "18", 
      RowBox[{"-", "24"}], "18", "18"},
     {"9", 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], "12", "18", 
      RowBox[{"-", "18"}], "96", "18", "9", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}], "18", 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "12"}], "9", 
      RowBox[{"-", "18"}], "12", "9"},
     {"9", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], "18", "12", "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "18", "96", "9", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}], "9", 
      RowBox[{"-", "12"}], "18", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}], "9", "12"},
     {
      RowBox[{"-", "24"}], "18", "18", 
      RowBox[{"-", "30"}], "9", "18", 
      RowBox[{"-", "30"}], "18", "9", 
      RowBox[{"-", "24"}], "9", "9", "96", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], "12", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], "12", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}]},
     {
      RowBox[{"-", "18"}], "12", "9", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "12"}], "9", "18", 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], "9", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], "96", "18", 
      RowBox[{"-", "9"}], "12", "18", "18", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "9", 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}]},
     {
      RowBox[{"-", "18"}], "9", "12", "18", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], "9", 
      RowBox[{"-", "12"}], "9", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "18", "96", "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}], "18", "12", "9", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}]},
     {
      RowBox[{"-", "30"}], "9", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "9", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], "18", 
      RowBox[{"-", "9"}], "12", 
      RowBox[{"-", "9"}], "18", "96", 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "9"}], "9", "12", 
      RowBox[{"-", "18"}], "9"},
     {
      RowBox[{"-", "9"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], "12", 
      RowBox[{"-", "9"}], "9", 
      RowBox[{"-", "24"}], "9", "18", 
      RowBox[{"-", "30"}], "9", 
      RowBox[{"-", "9"}], "12", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], "96", 
      RowBox[{"-", "18"}], "9", 
      RowBox[{"-", "30"}], "18", "18", 
      RowBox[{"-", "24"}], "18"},
     {
      RowBox[{"-", "18"}], "9", 
      RowBox[{"-", "30"}], "18", 
      RowBox[{"-", "9"}], "12", 
      RowBox[{"-", "9"}], "9", 
      RowBox[{"-", "24"}], "9", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "18"}], "96", 
      RowBox[{"-", "9"}], "18", 
      RowBox[{"-", "30"}], "9", 
      RowBox[{"-", "18"}], "12"},
     {
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}], "9", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}], "9", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], "18", "12", "18", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "12"}], "9", 
      RowBox[{"-", "9"}], "96", "18", 
      RowBox[{"-", "18"}], "12", "9", 
      RowBox[{"-", "18"}]},
     {
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}], "9", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}], "9", "18", "12", 
      RowBox[{"-", "9"}], "9", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], "18", "18", "96", 
      RowBox[{"-", "18"}], "9", "12", 
      RowBox[{"-", "18"}]},
     {
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "12"}], "9", "9", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], "12", "18", "9", 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], "12", "9", "18", 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], "96", "18", "18", 
      RowBox[{"-", "24"}]},
     {
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], "9", "9", "12", "18", "9", "12", "9", "18", "96", 
      "18", "18"},
     {
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "9"}], "9", 
      RowBox[{"-", "12"}], "9", "18", "12", "9", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "9", "12", "18", "18", "96", "18"},
     {
      RowBox[{"-", "9"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "24"}], "9", "9", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "30"}], "18", "9", "12", 
      RowBox[{"-", "9"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "30"}], "9", "18", "12", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "18", "18", "96"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.450768872331179*^9, 3.450769064310978*^9, {3.450769288376241*^9, 
   3.450769299760188*^9}, 3.450769411762739*^9, 3.450769492597151*^9, 
   3.451736296705635*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<muma.csv\>\"", ",", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.", "/", "6"}], ")"}], "^", "3"}], "MUMA"}], "]"}], ",", 
   "\"\<Table\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.450770623150643*^9, 3.450770651774159*^9}, {
  3.450770694590922*^9, 3.45077069650004*^9}, {3.450770786029945*^9, 
  3.450770840943322*^9}}],

Cell[BoxData["\<\"muma.csv\"\>"], "Output",
 CellChangeTimes->{
  3.45077069794971*^9, 3.450770788367291*^9, {3.450770823641003*^9, 
   3.450770841687021*^9}, 3.451736304870156*^9, 3.451736372695345*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"lambda", " ", "matrix"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"LAMA", "=", 
     RowBox[{"tojacobian", "[", 
      RowBox[{"FullSimplify", "[", 
       RowBox[{
        RowBox[{"6", "^", "3"}], 
        RowBox[{"intgr", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"strain2", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "+", 
            RowBox[{"strain2", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{"strain2", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "^", "2"}], "]"}]}], 
       "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"LAMA", "//", "MatrixForm"}]}]}]], "Input",
 CellChangeTimes->{{3.450769085793111*^9, 3.450769119364815*^9}, {
  3.450769186279088*^9, 3.450769195161584*^9}, {3.450769341096525*^9, 
  3.450769346955669*^9}, {3.4507694285905*^9, 3.4507694358991*^9}, {
  3.450769472799509*^9, 3.450769479008751*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"48", "36", "36", "24", "18", 
      RowBox[{"-", "36"}], "24", 
      RowBox[{"-", "36"}], "18", "12", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "48"}], "36", "36", 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], "18", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}]},
     {"36", "48", "36", "18", "24", 
      RowBox[{"-", "36"}], "36", 
      RowBox[{"-", "48"}], "36", "18", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], "24", "18", 
      RowBox[{"-", "18"}], "12", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}]},
     {"36", "36", "48", "36", "36", 
      RowBox[{"-", "48"}], "18", 
      RowBox[{"-", "36"}], "24", "18", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], "18", "24", 
      RowBox[{"-", "36"}], "18", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], "12", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}]},
     {"24", "18", "36", "48", "36", 
      RowBox[{"-", "36"}], "12", 
      RowBox[{"-", "18"}], "18", "24", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "18", "36", 
      RowBox[{"-", "48"}], "36", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}]},
     {"18", "24", "36", "36", "48", 
      RowBox[{"-", "36"}], "18", 
      RowBox[{"-", "24"}], "36", "36", 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], "12", "18", 
      RowBox[{"-", "36"}], "24", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], "18", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}]},
     {
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], "48", 
      RowBox[{"-", "18"}], "36", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "36", "24", "36", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "36", 
      RowBox[{"-", "18"}], "24", "18", "18", 
      RowBox[{"-", "12"}], "18", "18", "12"},
     {"24", "36", "18", "12", "18", 
      RowBox[{"-", "18"}], "48", 
      RowBox[{"-", "36"}], "36", "24", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], "36", "18", 
      RowBox[{"-", "12"}], "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "36"}], "36", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}]},
     {
      RowBox[{"-", "36"}], 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "36", 
      RowBox[{"-", "36"}], "48", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], "24", "36", "36", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "12"}], "18", "36", "24", 
      RowBox[{"-", "18"}], "18", "12", "18"},
     {"18", "36", "24", "18", "36", 
      RowBox[{"-", "24"}], "36", 
      RowBox[{"-", "36"}], "48", "36", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "18"}], "18", "12", 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], "24", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}]},
     {"12", "18", "18", "24", "36", 
      RowBox[{"-", "18"}], "24", 
      RowBox[{"-", "18"}], "36", "48", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "12"}], "18", "18", 
      RowBox[{"-", "24"}], "36", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "36", 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}]},
     {
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "48"}], "36", 
      RowBox[{"-", "18"}], "24", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], "48", "36", "18", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], "36", 
      RowBox[{"-", "24"}], "18", "18", "12", 
      RowBox[{"-", "18"}], "36", "24", "18"},
     {
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], "24", 
      RowBox[{"-", "36"}], "36", 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "36"}], "36", "48", "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], "18", 
      RowBox[{"-", "18"}], "12", "36", "18", 
      RowBox[{"-", "24"}], "36", "18", "24"},
     {
      RowBox[{"-", "48"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "36", 
      RowBox[{"-", "24"}], "36", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], "18", "18", "48", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], "24", 
      RowBox[{"-", "18"}], "36", "24", "36", 
      RowBox[{"-", "18"}], "12", "18", "18"},
     {"36", "24", "18", "18", "12", 
      RowBox[{"-", "18"}], "36", 
      RowBox[{"-", "24"}], "18", "18", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], "48", "36", 
      RowBox[{"-", "18"}], "24", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "48"}], "36", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}]},
     {"36", "18", "24", "36", "18", 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "18"}], "12", "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "36"}], "36", "48", 
      RowBox[{"-", "36"}], "36", 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], "24", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}]},
     {
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "36"}], "36", 
      RowBox[{"-", "12"}], "18", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "36", "18", "24", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], "48", 
      RowBox[{"-", "36"}], "36", "12", "18", 
      RowBox[{"-", "18"}], "24", "36", "18"},
     {"18", "12", "18", "36", "24", 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "12"}], "18", "36", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], "24", "36", 
      RowBox[{"-", "36"}], "48", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], "36", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "36"}]},
     {
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], "24", 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], "18", "12", "36", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "48"}], "36", 
      RowBox[{"-", "36"}], "48", "18", "36", 
      RowBox[{"-", "24"}], "18", "36", "24"},
     {
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], "18", 
      RowBox[{"-", "48"}], "36", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], "18", "36", "24", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "18"}], "12", 
      RowBox[{"-", "18"}], "18", "48", "36", 
      RowBox[{"-", "36"}], "24", "18", "36"},
     {
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], "18", 
      RowBox[{"-", "36"}], "24", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], "12", "18", "36", 
      RowBox[{"-", "48"}], 
      RowBox[{"-", "36"}], "18", 
      RowBox[{"-", "24"}], "36", "36", "48", 
      RowBox[{"-", "36"}], "18", "24", "36"},
     {"18", "18", "12", "18", "18", 
      RowBox[{"-", "12"}], "36", 
      RowBox[{"-", "18"}], "24", "36", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "18"}], "36", "24", 
      RowBox[{"-", "18"}], "36", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], "48", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "48"}]},
     {
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], "18", 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "48"}], "36", "36", "12", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], "24", 
      RowBox[{"-", "36"}], "18", "24", "18", 
      RowBox[{"-", "36"}], "48", "36", "36"},
     {
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "18"}], "12", 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "36"}], "24", "18", "18", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], "36", 
      RowBox[{"-", "48"}], "36", "18", "24", 
      RowBox[{"-", "36"}], "36", "48", "36"},
     {
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "12"}], 
      RowBox[{"-", "18"}], 
      RowBox[{"-", "18"}], "12", 
      RowBox[{"-", "36"}], "18", 
      RowBox[{"-", "24"}], 
      RowBox[{"-", "36"}], "18", "24", "18", 
      RowBox[{"-", "36"}], 
      RowBox[{"-", "24"}], "18", 
      RowBox[{"-", "36"}], "24", "36", "36", 
      RowBox[{"-", "48"}], "36", "36", "48"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.450769126155283*^9, {3.450769187909796*^9, 3.450769196062619*^9}, 
   3.450769347797527*^9, {3.450769424480403*^9, 3.450769436593763*^9}, 
   3.4507694798158*^9, 3.451736314669382*^9, 3.451736376339201*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<lama.csv\>\"", ",", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1.", "/", "6"}], ")"}], "^", "3"}], "LAMA"}], "]"}], ",", 
   "\"\<Table\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.450770862817584*^9, 3.45077086690879*^9}}],

Cell[BoxData["\<\"lama.csv\"\>"], "Output",
 CellChangeTimes->{3.45077086749446*^9, 3.451736378845889*^9}]
}, Open  ]]
},
WindowSize->{826, 730},
WindowMargins->{{Automatic, 72}, {Automatic, 0}},
FrontEndVersion->"7.0 for Linux x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1606, 48, 63, "Input"],
Cell[2154, 70, 5015, 127, 284, "Input"],
Cell[7172, 199, 2724, 87, 80, "Input"],
Cell[CellGroupData[{
Cell[9921, 290, 765, 18, 63, "Input"],
Cell[10689, 310, 11041, 356, 433, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21767, 671, 420, 11, 28, "Input"],
Cell[22190, 684, 203, 3, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22430, 692, 1034, 26, 63, "Input"],
Cell[23467, 720, 10742, 331, 433, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34246, 1056, 322, 9, 28, "Input"],
Cell[34571, 1067, 106, 1, 28, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
